home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / dbind.lisp < prev    next >
Encoding:
Text File  |  1988-11-16  |  322 b   |  16 lines
  1. (in-package 'si)
  2.  
  3. ;(defun joe ()
  4. ;  (dbind ((a) b) (foo) (print (list a b))))
  5.  
  6. (defmacro destructuring-bind
  7.   (al val &body body &aux  *dl* (*key-check* nil)
  8.             (*arg-check* nil) (sym (gensym)))
  9.   (dm-vl al sym t)
  10.   `(compiler::stack-let
  11.      ((,sym (cons nil ,val)))
  12.      (let* (,@ (nreverse *dl*))
  13.        ,@body)))
  14.  
  15.  
  16.